home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / drdobbs / 1987 / 08 / letters.exp < prev    next >
Text File  |  1987-08-12  |  1KB  |  60 lines
  1.  
  2.  
  3.  
  4.     MOVEQ    #63,D1        ;         4
  5.     LEA    DCA,A0        ;            12
  6. LOOP    MOVEP.L    0(A0),D0            ;24 * 64      1536
  7.     MOVE.L    D0,(A1)+            ;12 * 64       768
  8.     DBF    D1.LOOP        ;10 * 63 + 14  644
  9.     RTS
  10. ;        16
  11.                         ---
  12. ;                Total time     2980 cycles
  13.  
  14. Example 1:[help! with caption??]
  15.  
  16.  
  17. move.l    ReadMsg,A1
  18. move    #IOSTD_SIZE,D0
  19. move.l    _AbsExecBase,A6
  20. callsys    FreeMem            ;free up read io block memory
  21.  
  22. move.l    ReadPort,A1
  23. move.l  _AbsExecBase,A6        
  24. callsys    RemPort            ;remove read port from system
  25.  
  26. move.l    ReadPort,A1
  27. move     #MP_SIZE,D0
  28. move.l    _AbsExecBase,A6
  29. callsys    FreeMem            ;free up read port memory
  30.  
  31. move.l    ReadPort,A4
  32. clr.l    DO
  33. move.b    MP_SIGBIT(A4),D0
  34. move.l    _AbsExecBase,A6
  35. callsys    FreeSignal        ;free up read port signal bit
  36.  
  37. move.l    WriteMsg,A1
  38. move    #IOSTD_SIZE,D0
  39. move.l    _AbsExecBase,A6
  40. callsys    FreeMem            ;free up write io block memory
  41.  
  42. move.l     WritePort,A1
  43. move    #MP_SIZE,D0
  44. move.l     _AbsExecBase,A6
  45. callsys    FreeMem            ;free up write port memory
  46.  
  47. move.l    WritePort,A4
  48. clr.l    D0
  49. move.b    MP_SIGBIT(A4),D0
  50. move.l    _AbsExecBase,A6
  51. callsys    FreeSignal        ;free up write port signal bit
  52.  
  53. move.l    WindowPtr,A0
  54. move.l  IntBase,A6
  55. callsys    ClearMenuStrip        ;clear menu strip
  56. 
  57. Example 2: Code insert for the subroutine CloseAndQuit
  58.  
  59.  
  60.